#!/usr/bin/perl
# file : get_url.pl

use strict;
use LWP;

my $url = shift;

my $agent = LWP::UserAgent->new;
my $request = HTTP::Request->new(GET => $url);

my $response = $agent->request($request);
$response->is_success or die "$url: ", $response->messsage, "\n";

print $response->content;

=pot

HTTP::Request 包含从客户到服务器的外出请求的相关信息。请求可以是只包含一个url的简单对象，也可以是复杂对象，包含cookie 认证信息以及要传递给服务器脚本的参数。
HTTP::Request 封装了服务器返回给客户的信息，响应对象包含状态信息以及文档内容本身。

LWP::UserAgent 是客户和服务器之间的中介，将HTTP::Request传输给远程服务器，并将午饭前的响应转换为HTTP::Request以返回给客户代码。

除了lwp面向对象的方式，lwp还提供了一个称为 LWP::Simple的简化的过程接口。

=cut
